object Form1: TForm1 Left = 178 Top = 142 Width = 559 Height = 333 HelpContext = 10 Caption = 'Registry key enumerator' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Menu = MainMenu1 Position = poScreenCenter ShowHint = True OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 551 Height = 49 Align = alTop BevelOuter = bvNone TabOrder = 0 object Panel5: TPanel Left = 0 Top = 0 Width = 430 Height = 49 Align = alClient BevelInner = bvRaised BevelOuter = bvNone TabOrder = 0 object Panel6: TPanel Left = 353 Top = 1 Width = 76 Height = 47 Align = alRight BevelOuter = bvNone TabOrder = 1 object el_cbxMaxDepth: TEnhLabel Left = 4 Top = 7 Width = 53 Height = 13 Caption = '&Max depth:' FocusControl = cbxMaxDepth end object cbxMaxDepth: TLblComboBox Left = 4 Top = 22 Width = 64 Height = 21 Hint = 'Recursion' ItemHeight = 13 Items.Strings = ( '1' '2' '3' '4' '5' '(no limit)') TabOrder = 0 Text = '1' OnChange = cbxMaxDepthChange LabelPos = lpTop LabelMargin = 2 LabelComponent = el_cbxMaxDepth end end object Panel7: TPanel Left = 1 Top = 1 Width = 352 Height = 47 Align = alClient BevelOuter = bvNone TabOrder = 0 object el_cbxKey: TEnhLabel Left = 8 Top = 7 Width = 21 Height = 13 Caption = '&Key:' FocusControl = cbxKey end object cbxKey: TLblComboBox Left = 8 Top = 22 Width = 357 Height = 21 Hint = 'Full registry key' ItemHeight = 13 TabOrder = 0 LabelPos = lpTop LabelMargin = 2 LabelComponent = el_cbxKey end end end object Panel4: TPanel Left = 430 Top = 0 Width = 121 Height = 49 Align = alRight BevelInner = bvRaised BevelOuter = bvNone TabOrder = 1 object sbStop: TSpeedButton Left = 8 Top = 22 Width = 21 Height = 21 Hint = 'Stop (alt-s)' Caption = 'X' Enabled = False OnClick = sbStopClick end object btnEnum: TButton Left = 38 Top = 22 Width = 75 Height = 21 Hint = 'Go!' Caption = 'E&numerate' TabOrder = 0 OnClick = btnEnumClick end end end object Panel2: TPanel Left = 0 Top = 49 Width = 551 Height = 238 Align = alClient BevelOuter = bvNone Caption = 'Panel2' TabOrder = 1 object Panel3: TPanel Left = 0 Top = 0 Width = 551 Height = 219 Align = alClient BevelOuter = bvNone Caption = 'Panel3' TabOrder = 0 object RichEdit1: TRichEdit Left = 0 Top = 0 Width = 551 Height = 219 Align = alClient Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] MaxLength = 200000000 ParentFont = False PlainText = True PopupMenu = EditPopUp ScrollBars = ssBoth TabOrder = 0 WordWrap = False end end object StatusBar1: TStatusBar Left = 0 Top = 219 Width = 551 Height = 19 Panels = < item Text = 'Processing key : ' Width = 50 end> SimplePanel = False end end object MainMenu1: TMainMenu Left = 117 Top = 114 object File1: TMenuItem Caption = '&File' ShortCut = 0 object OpenRegedit1: TMenuItem Caption = 'Open &Regedit' ShortCut = 0 OnClick = OpenRegedit1Click end object N5: TMenuItem Caption = '-' ShortCut = 0 end object Open1: TMenuItem Caption = '&Open' ShortCut = 0 OnClick = Open1Click end object Save1: TMenuItem Caption = '&Save' ShortCut = 0 OnClick = Save1Click end object SaveAs1: TMenuItem Caption = 'Save &As' ShortCut = 0 OnClick = SaveAs1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = Exit1Click end end object Edit1: TMenuItem Caption = '&Edit' ShortCut = 0 OnClick = Edit1Click object copy1: TMenuItem Caption = '&Copy' ShortCut = 0 OnClick = copy1Click end object Paste1: TMenuItem Caption = '&Paste' ShortCut = 0 Visible = False OnClick = Paste1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Find1: TMenuItem Caption = '&Find' ShortCut = 16454 OnClick = Find1Click end object FindNext1: TMenuItem Caption = 'Find Next' ShortCut = 114 OnClick = FindNext1Click end object N6: TMenuItem Caption = '-' ShortCut = 0 end object Selectall1: TMenuItem Caption = '&Select all' ShortCut = 0 OnClick = Selectall1Click end end object Options1: TMenuItem Caption = '&Options' ShortCut = 0 object TextOnly1: TMenuItem Caption = '&Strings Only' ShortCut = 0 OnClick = TextOnly1Click end object DefaultsOnly1: TMenuItem Caption = '&Defaults Only' ShortCut = 0 OnClick = DefaultsOnly1Click end object Fullkeypaths1: TMenuItem Caption = '&Full key paths' ShortCut = 0 OnClick = Fullkeypaths1Click end object N4: TMenuItem Caption = '-' ShortCut = 0 end object Other1: TMenuItem Caption = '&Other Options' ShortCut = 0 OnClick = Other1Click end end object Tools1: TMenuItem Caption = '&Tools' ShortCut = 0 object BackupRegistry1: TMenuItem Caption = '&Backup Registry' ShortCut = 0 OnClick = BackupRegistry1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object HelpTopics1: TMenuItem Caption = '&Help Topics' ShortCut = 0 OnClick = HelpTopics1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object AboutRegenumerator1: TMenuItem Caption = '&About Reg Enumerator' ShortCut = 0 OnClick = AboutRegenumerator1Click end end end object FormStorage1: TFormStorage StoredProps.Strings = ( 'DefaultsOnly1.Checked' 'TextOnly1.Checked' 'cbxKey.Items') Left = 209 Top = 82 end object SaveDialog1: TSaveDialog DefaultExt = 'txt' FileEditStyle = fsEdit Filter = 'Text|txt' Options = [ofOverwritePrompt, ofExtensionDifferent, ofPathMustExist] Left = 237 Top = 150 end object OpenDialog1: TOpenDialog DefaultExt = 'txt' FileEditStyle = fsEdit Options = [ofNoValidate, ofPathMustExist, ofFileMustExist] Left = 321 Top = 114 end object EditPopUp: TPopupMenu OnPopup = EditPopUpPopup Left = 96 Top = 209 object Bold1: TMenuItem Caption = 'Bold' ShortCut = 0 OnClick = Bold1Click end object Copy2: TMenuItem Caption = 'Copy' ShortCut = 0 OnClick = Copy2Click end end end